home *** CD-ROM | disk | FTP | other *** search
/ Aminet 12 / Aminet 12 (1996)(GTI - Schatztruhe)[!][Jun 1996].iso / Aminet / dev / e / eiffel.lha / flc / source / STRING / is_equal.s < prev    next >
Encoding:
Text File  |  1996-01-27  |  452 b   |  27 lines
  1.  
  2. **
  3. ** is_equal (other:STRING):BOOLEAN  (inherited from ANY)
  4. **
  5. ** Copyright © 1995, Guichard Damien.
  6. **
  7.  
  8. is_equal
  9.         move.l  ($4,sp),a6
  10.         move.l  ($8,a6),d0
  11.         cmp.l   ($8,a1),d0
  12.         bne.s   .no
  13.         sub.l   #1,d0
  14.         move.l  ($C,a6),a6
  15.         move.l  ($C,a1),a2
  16.  
  17. .loop   cmpm.b  (a2)+,(a6)+
  18.         dbne    d0,.loop
  19.         bne.s   .no
  20.  
  21. .yes    move.l  #-1,d0
  22.         rtd     #4
  23.  
  24. .no     move.l  #0,d0
  25.         rtd     #4
  26.  
  27.